home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / seqrd80.sfx / 80 column seq.64 (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  346b  |  12 lines
  1. 10 POKE 53280,0:POKE 53281,0
  2. 20 IFML=0THENML=1:LOAD"M/L",8,1
  3. 30 IFF=0THENPRINT"[147][142]LOADING ..."
  4. 40 IFF=0THENF=1:LOAD"80CTRL",8,3
  5. 50 PRINT "[144]LOAD"CHR$(34)"80CSET"CHR$(34)",8,3"
  6. 60 PRINT "SYS50688:NEW"
  7. 70 PRINT "LOAD"CHR$(34)"3MAIN"CHR$(34)",8"
  8. 80 POKE 198,10
  9. 90 DATA 19,13,13,13,32,32,82,85,78,13
  10. 100 FOR I=1 TO 10:READ X:POKE 630+I,X:NEXT
  11. 110 POKE 44,64:POKE 16*1024,0:CLR:NEW
  12.